home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Next Step: Mars?
/
Next Step Mars (1994)(IVI).iso
/
shared.dir
/
00676_Script_676
< prev
Wrap
Text File
|
1994-12-01
|
646b
|
26 lines
on importQT
repeat with castNum = 1 to the number of castMembers
if ( the castType of cast castNum = #digitalVideo ) then
put the filename of cast castNum into movName
set oldDel = the itemDelimiter
if ( movName contains "\" ) then
set the itemDelimiter = "\"
put "PROJECT5:" into item 1 of movName
else
set the itemDelimiter = ":"
end if
put "QTMOVS" into item 5 of movName
set the itemDelimiter = oldDel
-- for debugging
put castNum movName
importFIleInto cast castNum,movName
end if
end repeat
end